integer function f(x, y) result(r)
  intent ( in ) x , y
  return 0
end function
